grant = read.csv('NDB_ResearchGrants_NIH.csv')
print(grant)
## Year Female Male Percentage.to.Female
## 1 1998 7362 24877 23
## 2 1999 8040 26753 23
## 3 2000 8713 28320 24
## 4 2001 9386 29890 24
## 5 2002 10199 31801 24
## 6 2003 11080 33416 25
## 7 2004 11693 34200 25
## 8 2005 11998 33870 26
## 9 2006 11929 33107 26
## 10 2007 12266 33551 27
## 11 2008 12575 32987 28
## 12 2009 12546 31884 28
## 13 2010 12635 31667 29
## 14 2011 12838 31183 29
## 15 2012 13025 30768 30
## 16 2013 12522 29553 30
## 17 2014 12516 28843 30
## 18 2015 12755 28703 31
## 19 2016 13355 29287 31
## 20 2017 13842 29709 32
## 21 2018 15207 30648 33
## 22 2019 16343 31558 34
## 23 2020 17161 31652 35
## 24 2021 17681 31443 36
## 25 2022 19028 31560 38
## 26 2023 19841 31387 39
## 27 2024 20201 30848 40
Comparison of Research Grant in STEM field